Attribute VB_Name = "modCustomButtons"
'---------------------------------------------------------------------------------------
'Module : modCustomButtons
'Date   : 05/11/2004
'Author : Chris Elwell
'Purpose: Contains the the subs called when a Custom Button is clicked on frmShip.
'         To use these button they must be enable in setup and the CIC must define
'         the function of each button below.
'
'         Any supporting subroutines for these buttons should also be placed here.
'---------------------------------------------------------------------------------------
Public Sub CustomButton1()
    'MsgBox "Custom 1 not coded"
    With frmShip
        g_blnDoOptimize = True
        Call .QuoteConnect
    End With
End Sub
Public Sub CustomButton2()
    'MsgBox "Custom 2 not coded"
    frmVerifyAddress.Show vbModeless, frmShip

End Sub
Public Sub CustomButton3()
    MsgBox "Custom 3 not coded"
End Sub

